﻿Public Class Est_Productos_Vendidos
    Dim acceso As New acceso
    Private Sub Est_Productos_Vendidos_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        calculo_estadisticas()

    End Sub
    Private Sub calculo_estadisticas()
        Dim sql As String

        sql = "Select * from Vista_Est_Productos_Vendidos"
        Est_Productos_VendidosBindingSource.DataSource = acceso.ejecutar(sql)
        ReportViewer1.RefreshReport()


    End Sub
End Class